home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / HTML / HTMLEXT / mod / Browser / ibrowse.mod < prev    next >
Encoding:
Text File  |  2000-03-26  |  3.5 KB  |  112 lines
  1. /* $VER: HTMLEXT Modul: ibrowse.mod V 018 by Juan Manuel Wehrli 1999 - 2000
  2.  */
  3.  
  4. if ~show("L",rexxtricks.library) then do
  5.         call addlib("rexxtricks.library",0,-30,0)
  6. end
  7.  
  8. PARSE ARG Befehl File
  9. OPTIONS RESULTS
  10. ADDRESS COMMAND
  11.  
  12. if Befehl = QUIT then do
  13.     if show('P',"IBROWSE") then do
  14.         ADDRESS "IBROWSE" QUIT
  15.     end
  16.     exit
  17. end
  18.  
  19. if Befehl = OPEN then do
  20.     if ~show('P',"IBROWSE") then do
  21.         'Run <>NIL: ibrowse:ibrowse CONFIGDIR ibrowse:htmlext/'
  22.         "sys:rexxc/waitforport IBROWSE"
  23.     end
  24.     File = STRIP(File,,'"')
  25.     File = COMPRESS(File)
  26.     if File ~= "" then do
  27.         preview = 't:htmlext/preview.htm'
  28.         if open('f',preview,'w') then do
  29.             call writeln('f','<HTML><HEAD><TITLE>HTMLEXT Preview</TITLE></HEAD>')
  30.             call writeln('f','<FRAMESET ROWS=20,* FRAMEBORDER="0" BORDER="0" FRAMESPACING=0>')
  31.             call writeln('f','<FRAME NAME="fstop" SRC="file://localhost/htmlext:data/preview/metertoppx.htm" MARGINHEIGHT=0 MARGINWIDTH=0 SCROLLING=NO NORESIZE>')
  32.             call writeln('f','<FRAMESET COLS=20,* FRAMEBORDER="0" BORDER="0" FRAMESPACING=0>')
  33.             call writeln('f','<FRAME NAME="fsleft" SRC="file://localhost/htmlext:data/preview/meterleftpx.htm" MARGINHEIGHT=0 MARGINWIDTH=0 SCROLLING=NO NORESIZE>')
  34.             call writeln('f','<FRAME NAME="htprev" SRC="file://localhost/' || File || '" MARGINHEIGHT=0 MARGINWIDTH=0 SCROLLING=AUTO NORESIZE>')
  35.             call writeln('f','</FRAMESET></FRAMESET><BODY></BODY></HTML>')
  36.             call close('f')
  37.             ADDRESS IBROWSE GOTOURL '"file://localhost/' || preview || '"'
  38.         end
  39.     end
  40.     exit
  41. end
  42.  
  43.  
  44. if Befehl = OPENNEW then do
  45.     DIR = GETENV(.htmlext.tmp)
  46.     if ~show('P',"IBROWSE") then do
  47.         'Run <>NIL: ibrowse:ibrowse CONFIGDIR ibrowse:htmlext/'
  48.         "sys:rexxc/waitforport IBROWSE"
  49.     end
  50.     File = STRIP(File,,'"')
  51.     File = COMPRESS(File)
  52.     if File ~= "" then do
  53.         ADDRESS "IBROWSE" NEWWINDOW
  54.         ADDRESS "IBROWSE" GOTOURL '"file://localhost/' || File || '"'
  55.     end
  56.     exit
  57. end
  58.  
  59. if Befehl = OPENURL then do
  60.     if ~show('P',"IBROWSE") then do
  61.         'Run <>NIL: ibrowse:ibrowse CONFIGDIR ibrowse:htmlext/'
  62.         "sys:rexxc/waitforport IBROWSE"
  63.     end
  64.     File = STRIP(File,,'"')
  65.     File = COMPRESS(File)
  66.     if File ~= "" then do
  67.         ADDRESS "IBROWSE" GOTOURL File
  68.     end
  69.     exit
  70. end
  71.  
  72. if Befehl = ICONIFY then do
  73.     if show('P',"IBROWSE") then do
  74.         ADDRESS "IBROWSE" HIDE
  75.     end
  76.     exit
  77. end
  78.  
  79. if Befehl = UNICONIFY then do
  80.     if show('P',"IBROWSE") then do
  81.          ADDRESS "IBROWSE" SHOW
  82.     end
  83.     exit
  84. end
  85.  
  86. if Befehl = START then do
  87.     if ~show('P',"IBROWSE") then do
  88.         'Run <>NIL: ibrowse:ibrowse CONFIGDIR ibrowse:htmlext/'
  89.         "sys:rexxc/waitforport IBROWSE"
  90.         "wait 2"
  91.     end
  92.     File = STRIP(File,,'"')
  93.     File = COMPRESS(File)
  94.     if File ~= "" then do
  95.         preview = 't:htmlext/preview.htm'
  96.         if open('f',preview,'w') then do
  97.             call writeln('f','<HTML><HEAD><TITLE>HTMLEXT Preview</TITLE></HEAD>')
  98.             call writeln('f','<FRAMESET ROWS=20,* FRAMEBORDER="0" BORDER="0" FRAMESPACING=0>')
  99.             call writeln('f','<FRAME NAME="fstop" SRC="file://localhost/htmlext:data/preview/metertoppx.htm" MARGINHEIGHT=0 MARGINWIDTH=0 SCROLLING=NO NORESIZE>')
  100.             call writeln('f','<FRAMESET COLS=20,* FRAMEBORDER="0" BORDER="0" FRAMESPACING=0>')
  101.             call writeln('f','<FRAME NAME="fsleft" SRC="file://localhost/htmlext:data/preview/meterleftpx.htm" MARGINHEIGHT=0 MARGINWIDTH=0 SCROLLING=NO NORESIZE>')
  102.             call writeln('f','<FRAME NAME="htprev" SRC="file://localhost/htmlext:data/preview/blank.htm" MARGINHEIGHT=0 MARGINWIDTH=0 SCROLLING=AUTO NORESIZE>')
  103.             call writeln('f','</FRAMESET></FRAMESET><BODY></BODY></HTML>')
  104.             call close('f')
  105.             ADDRESS "IBROWSE"
  106.             GOTOURL '"file://localhost/' || preview || '"'
  107.         end
  108.     end
  109.     exit
  110. end
  111.  
  112.